R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

library(foreign)
hkdata <- data.frame(read.spss("datathon/Hong Kong v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor level2: CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN,
## CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, CENTRAL & WESTERN, WAN
## CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN CHAI, WAN
## CHAI, WAN CHAI, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN, EASTERN,
## EASTERN, EASTERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN,
## SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN, SOUTHERN,
## SOUTHERN, SOUTHERN, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO,
## SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI
## PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM
## SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, SHAM SHUI PO, KOWLOON CITY,
## KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON
## CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY,
## KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON
## CITY, KOWLOON CITY, KOWLOON CITY, KOWLOON CITY, WONG TAI SIN, WONG TAI SIN, WONG
## TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN,
## WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI
## SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG
## TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, WONG TAI SIN, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN TONG, KWUN
## TONG, KWUN TONG, KWUN TONG, KWUN TONG, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK,
## YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG
## KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM
## & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU TSIM & MONG KOK, YAU
## TSIM & MONG KOK, YAU TSIM & MONG KOK, KWAI TSING, KWAI TSING, KWAI TSING, KWAI
## TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING,
## KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI
## TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING,
## KWAI TSING, KWAI TSING, KWAI TSING, KWAI TSING, TSUEN WAN, TSUEN WAN, TSUEN WAN,
## TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN,
## TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TSUEN WAN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN MUN, TUEN
## MUN, TUEN MUN, TUEN MUN, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG,
## YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG,
## YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, YUEN LONG, NORTH, NORTH,
## NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH, NORTH,
## NORTH, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO,
## TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, TAI PO, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN, SHATIN,
## SHATIN, SHATIN, SHATIN, SHATIN, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI
## KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI KUNG, SAI
## KUNG, SAI KUNG, SAI KUNG, SAI KUNG, ISLANDS, ISLANDS, ISLANDS, ISLANDS, ISLANDS,
## ISLANDS
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor qt: RESIDENTIAL QUARTERS IN HOTELS/HOSTELS, NON-
## RESIDENTIAL QUARTERS IN HOTELS/HOSTELS
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q061: NOT VERY MUCH INFLUENCE
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9 added in
## variable: q099
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9
## added in variable: q100
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5 added in variable: q101
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9 added
## in variable: q102
## Warning in read.spss("datathon/Hong Kong v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5
## added in variable: q103
jpdata <- data.frame(read.spss("datathon/Japan v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 4 added in variable: ir007_2
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 2, 3, 4, 5, 6, 7, 8, 9 added in variable: jp010
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 7 added in variable: jp023
## Warning in read.spss("datathon/Japan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 144 added in variable: q0972a
kodata <- data.frame(read.spss("datathon/Korea v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_1
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_2
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 550, 650 added in variable: q097_3
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Korea v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
mldata <- data.frame(read.spss("datathon/Mainland v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 11, 12 added in variable: se003
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0, 3, 4, 10, 20, 31, 32, 40, 50, 52, 60, 100, 110, 120, 130,
## 140, 151, 152, 159, 200, 210, 220, 230, 241, 242, 243, 249, 250, 270, 290, 300,
## 310, 321, 322, 330, 400, 410, 420, 430, 431, 432, 439, 440, 450, 460, 471, 472,
## 473, 490, 510, 520, 530, 540, 550, 560, 600, 610, 620, 630, 640, 650, 660, 670,
## 678, 680, 690, 710, 720, 730, 740, 750, 760, 770, 780, 790, 810, 820, 830, 840,
## 850, 860, 870, 880, 890, 891, 892, 899, 901, 910, 920 added in variable: se012b
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q062: other
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_1: Obey law, No dictator, Majority rule
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_2: Obey law, No dictator, Majority rule
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_3: Obey law, No dictator, Majority rule
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 33, 244, 859 added in variable: q097_a
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_a: No dictator
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 123, 126, 241 added in variable: q097_b
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_b: No dictator
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 87 added in variable: q097_c
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q097_c: No dictator
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099_1
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099_2
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Mainland v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
mndata <- data.frame(read.spss("datathon/Mongolia v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 335, 652 added in variable: q097_3
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 335, 652 added in variable: q097_c
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Mongolia v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
phdata <- data.frame(read.spss("datathon/Philippines v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se006a: DATING DAAN
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a4
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: se009a7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_1: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_2: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_3: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012a_4: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_1: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_2: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor se012b_3: HOMECARE, STUDENT, RETIRED, DISABLED,
## HOMECARE, STUDENT, RETIRED, DISABLED, OTHERS
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_9
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q019_10
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_9
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q020_10
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_3
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_4
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_9
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q043_10
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_4
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_9
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: q097_10
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 4, 5, 9, 10, 13, 16, 18, 24, 29, 36, 37, 39, 45, 46, 50,
## 72, 100, 120, 213, 248, 287, 288, 290, 352, 552, 564, 569, 572, 610, 630, 667,
## 669, 713, 728, 779, 784, 928, 1149, 1182, 1183, 1630, 6010 added in variable:
## ir001
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_4
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a_9
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ir003a10
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_4
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_5
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_6
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_7
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_8
## Warning in read.spss("datathon/Philippines v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 0 added in variable: ph002_9
tadata <- data.frame(read.spss("datathon/Taiwan v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor q063_5: None of any party's loyal support, but
## usually feel close to, None of any party's loyal support, but usually feel close
## to, None of any party's loyal support, but usually feel close to, None of any
## party's loyal support, but usually feel close to
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1910, 1912, 1914, 1915, 1917, 1918, 1919, 1920, 1921, 1922,
## 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935,
## 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948,
## 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 1961,
## 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974,
## 1975, 1976, 1977, 1978, 1979, 1980 added in variable: year2
## Warning in read.spss("datathon/Taiwan v4.2.sav", to.data.frame = TRUE):
## Duplicated levels in factor tw058: Agree with status quo. If it couldn't be
## status quo, then ag
thdata <- data.frame(read.spss("datathon/Thailand v4.2.sav", to.data.frame=TRUE))
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
## 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
## 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,
## 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78,
## 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98,
## 99, 100 added in variable: amper
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 17 added in variable: q097_2
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q099
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q100
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 3, 4, 5, 6, 7, 8, 9 added in variable: q101
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q102
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 2, 3, 4, 5, 6, 7, 8, 9 added in variable: q103
## Warning in read.spss("datathon/Thailand v4.2.sav", to.data.frame = TRUE):
## Undeclared level(s) 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 20 added in
## variable: th002
hkdata <- hkdata %>%
  drop_na(se005b, se009, se003, se002, se004, q007, q008, q009, q010)
jpdata <- jpdata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)
kodata <- kodata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)
mldata <- mldata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)
mndata <- mndata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)
phdata <- phdata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)
tadata <- tadata %>%
  drop_na(se005b, se009, se003, se002, se004, q007, q008, q009, q010)
thdata <- thdata %>%
  drop_na(se005b, se009, se003, q007, q008, q009, q010)

Including Plots

QUESTION 7

par(mfrow=c(1,3))


hk007 <- ggplot(data = hkdata, aes(x = se002, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (HK)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk007

hk007 <- ggplot(data = hkdata, aes(x = se004, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (HK)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk007

hk007 <- ggplot(data = hkdata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (HK)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk007

hk007 <- ggplot(data = hkdata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (HK)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk007

hk007 <- ggplot(data = hkdata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (HK)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk007

par(mfrow=c(1,3))

hk008 <- ggplot(data = hkdata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (HK)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk008

hk008 <- ggplot(data = hkdata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (HK)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk008

hk008 <- ggplot(data = hkdata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (HK)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk008

par(mfrow=c(1,3))
hk009 <- ggplot(data = hkdata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (HK)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk009

hk009 <- ggplot(data = hkdata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (HK)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk009

hk009 <- ggplot(data = hkdata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (HK)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk009

par(mfrow=c(1,3))
hk010 <- ggplot(data = hkdata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (HK)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk010

hk010 <- ggplot(data = hkdata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (HK)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk010

hk010 <- ggplot(data = hkdata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (HK)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
hk010

par(mfrow=c(1,3))
jp007 <- ggplot(data = jpdata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (JP)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp007

jp007 <- ggplot(data = jpdata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (JP)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp007

jp007 <- ggplot(data = jpdata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (JP)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp007

par(mfrow=c(1,3))

jp008 <- ggplot(data = jpdata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (JP)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp008

jp008 <- ggplot(data = jpdata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (JP)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp008

jp008 <- ggplot(data = jpdata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (JP)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp008

par(mfrow=c(1,3))
jp009 <- ggplot(data = jpdata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (JP)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp009

jp009 <- ggplot(data = jpdata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (JP)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp009

jp009 <- ggplot(data = jpdata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (JP)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp009

par(mfrow=c(1,3))
jp010 <- ggplot(data = jpdata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (JP)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp010

jp010 <- ggplot(data = jpdata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (JP)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp010

jp010 <- ggplot(data = jpdata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (JP)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
jp010

par(mfrow=c(1,3))
ko007 <- ggplot(data = kodata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (KO)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko007

ko007 <- ggplot(data = kodata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (KO)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko007

#ko007 <- ggplot(data = kodata, aes(x = se003, fill = q007))+
#  geom_bar(position = "fill")+
#  labs(title = "How much trust do you have in the courts? (KO)"
#       , "Proportion",
#       x = "Age") + theme(text = element_text(size=8),
#        axis.text.x = element_text(angle=90, hjust=1))
#ko007
par(mfrow=c(1,3))

ko008 <- ggplot(data = kodata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (KO)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko008

ko008 <- ggplot(data = kodata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (KO)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko008

#ko008 <- ggplot(data = kodata, aes(x = se003, fill = q008))+
#  geom_bar(position = "fill")+
#  labs(title = "How much trust do you have in the national government? (KO)"
#       , y = "count",
#       x = "Age") + theme(text = element_text(size=8),
#        axis.text.x = element_text(angle=90, hjust=1))
#ko008
par(mfrow=c(1,3))
ko009 <- ggplot(data = kodata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (KO)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko009

ko009 <- ggplot(data = kodata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (KO)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko009

#ko009 <- ggplot(data = kodata, aes(x = se003, fill = q009))+
#  geom_bar(position = "fill")+
#  labs(title = "How much trust do you have in political parties? (KO)"
#       , y = "Proportion",
#       x = "Age") + theme(text = element_text(size=8),
#        axis.text.x = element_text(angle=90, hjust=1))
#ko009
par(mfrow=c(1,3))
ko010 <- ggplot(data = kodata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (KO)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko010

ko010 <- ggplot(data = kodata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (KO)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ko010

#ko010 <- ggplot(data = kodata, aes(x = se003, fill = q010))+
#  geom_bar(position = "fill")+
#  labs(title = "How much trust do you have in Parliament? (KO)"
#       , y = "Proportion",
#       x = "Age") + theme(text = element_text(size=8),
#        axis.text.x = element_text(angle=90, hjust=1))
#ko010
par(mfrow=c(1,3))
ml007 <- ggplot(data = mldata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (ML)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml007

ml007 <- ggplot(data = mldata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (ML)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml007

ml007 <- ggplot(data = mldata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (ML)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml007

par(mfrow=c(1,3))

ml008 <- ggplot(data = mldata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (ML)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml008

ml008 <- ggplot(data = mldata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (ML)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml008

ml008 <- ggplot(data = mldata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (ML)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml008

par(mfrow=c(1,3))
ml009 <- ggplot(data = mldata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (ML)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml009

ml009 <- ggplot(data = mldata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (ML)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml009

ml009 <- ggplot(data = mldata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (ML)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml009

par(mfrow=c(1,3))
ml010 <- ggplot(data = mldata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (ML)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml010

ml010 <- ggplot(data = mldata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (ML)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml010

ml010 <- ggplot(data = mldata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (ML)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ml010

par(mfrow=c(1,3))
mn007 <- ggplot(data = mndata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (MN)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn007

mn007 <- ggplot(data = mndata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (MN)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn007

mn007 <- ggplot(data = mndata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (MN)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn007

par(mfrow=c(1,3))

mn008 <- ggplot(data = mndata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (MN)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn008

mn008 <- ggplot(data = mndata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (MN)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn008

mn008 <- ggplot(data = mndata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (MN)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn008

par(mfrow=c(1,3))
mn009 <- ggplot(data = mndata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (MN)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn009

mn009 <- ggplot(data = mndata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (MN)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn009

mn009 <- ggplot(data = mndata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (MN)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn009

par(mfrow=c(1,3))
mn010 <- ggplot(data = mndata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (MN)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn010

mn010 <- ggplot(data = mndata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (MN)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn010

mn010 <- ggplot(data = mndata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (MN)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
mn010

par(mfrow=c(1,3))
ph007 <- ggplot(data = phdata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (PH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph007

ph007 <- ggplot(data = phdata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (PH)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph007

ph007 <- ggplot(data = phdata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (PH)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph007

par(mfrow=c(1,3))

ph008 <- ggplot(data = phdata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (PH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph008

ph008 <- ggplot(data = phdata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (PH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph008

ph008 <- ggplot(data = phdata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (PH)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph008

par(mfrow=c(1,3))
ph009 <- ggplot(data = phdata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (PH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph009

ph009 <- ggplot(data = phdata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (PH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph009

ph009 <- ggplot(data = phdata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (PH)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph009

par(mfrow=c(1,3))
ph010 <- ggplot(data = phdata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (PH)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph010

ph010 <- ggplot(data = phdata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (PH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph010

ph010 <- ggplot(data = phdata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (PH)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ph010

par(mfrow=c(1,3))
ta007 <- ggplot(data = tadata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TA)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta007

ta007 <- ggplot(data = tadata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TA)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta007

ta007 <- ggplot(data = tadata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TA)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta007

par(mfrow=c(1,3))

ta008 <- ggplot(data = tadata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TA)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta008

ta008 <- ggplot(data = tadata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TA)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta008

ta008 <- ggplot(data = tadata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TA)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta008

par(mfrow=c(2,3))
ta009 <- ggplot(data = tadata, aes(x = se002, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (Taiwan)"
       , y = "Proportion",
       x = "Gender") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta009

ta009 <- ggplot(data = tadata, aes(x = se004, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (Taiwan)"
       , y = "Proportion",
       x = "Marital Identity") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta009

ta009 <- ggplot(data = tadata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (Taiwan)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta009

ta009 <- ggplot(data = tadata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (Taiwan)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta009

ta009 <- ggplot(data = tadata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (Taiwan)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta009

par(mfrow=c(1,3))
ta010 <- ggplot(data = tadata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TA)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta010

ta010 <- ggplot(data = tadata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TA)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta010

ta010 <- ggplot(data = tadata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TA)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
ta010

par(mfrow=c(1,3))
th007 <- ggplot(data = thdata, aes(x = se005b, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th007

th007 <- ggplot(data = thdata, aes(x = se009, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TH)"
       , "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th007

th007 <- ggplot(data = thdata, aes(x = se003, fill = q007))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the courts? (TH)"
       , "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th007

par(mfrow=c(1,3))

th008 <- ggplot(data = thdata, aes(x = se005b, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th008

th008 <- ggplot(data = thdata, aes(x = se009, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th008

th008 <- ggplot(data = thdata, aes(x = se003, fill = q008))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in the national government? (TH)"
       , y = "count",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th008

par(mfrow=c(1,3))
th009 <- ggplot(data = thdata, aes(x = se005b, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (TH)"
       , y = "Proportion",
       x = "Education") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th009

th009 <- ggplot(data = thdata, aes(x = se009, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (TH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th009

th009 <- ggplot(data = thdata, aes(x = se003, fill = q009))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in political parties? (TH)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th009

par(mfrow=c(1,3))
th010 <- ggplot(data = thdata, aes(x = se005b, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TH)"
       , y = "Proportion",
       x = "Education Level") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th010

th010 <- ggplot(data = thdata, aes(x = se009, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TH)"
       , y = "Proportion",
       x = "Monthly Household Income") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th010

th010 <- ggplot(data = thdata, aes(x = se003, fill = q010))+
  geom_bar(position = "fill")+
  labs(title = "How much trust do you have in Parliament? (TH)"
       , y = "Proportion",
       x = "Age") + theme(text = element_text(size=8),
        axis.text.x = element_text(angle=90, hjust=1))
th010